home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Freeware / Videokonverter / VCD < prev    next >
Text File  |  2002-10-27  |  3KB  |  192 lines
  1. G4C
  2.  
  3. WinBig -1 -1 650 240 "VideoCD-Authoring                © 2002 Carsten Siegner"
  4. WinType 11110011
  5. ;Winbackground Image Hintergrund ""
  6. ResInfo 13 1024 768
  7.  
  8. xOnLoad
  9. ;LoadImage  Hintergrund-fertig.iff Hintergrund Workbench
  10.  
  11. GuiOpen #this
  12. xOnClose
  13.  
  14.      GuiQuit #this
  15. winfont helvetica.font 11 000
  16. ;------------------------------------
  17. xtextin 50 95 170 20 "Track 2" t1 ""80
  18. gadid 3
  19. xcheckbox 230 95 20 20 "" tv1 1 0 off
  20. if $tv1 = 0
  21. setvar t1 ""
  22. update #this 3 $t1
  23. endif
  24. if $tv1 = 1
  25. setvar t1 $.E1
  26. update #this 3 $t1
  27. endif
  28. ;------------------------------------
  29. xtextin 50 120 170 20 "Track 3" t2 ""80
  30. gadid 4
  31. xcheckbox 230 120 20 20 "" tv2 1 0 off
  32. if $tv2 = 0
  33. setvar t2 ""
  34. update #this 4 $t2
  35. endif
  36. if $tv2 = 1
  37. setvar t2 $.E1
  38. update #this 4 $t2
  39. endif
  40. ;------------------------------------
  41. xtextin 50 145 170 20 "Track 4" t3 ""80
  42. gadid 5
  43. xcheckbox 230 145 20 20 "" tv3 1 0 off
  44. if $tv3 = 0
  45. setvar t3 ""
  46. update #this 5 $t30
  47. endif
  48. if $tv3 = 1
  49. setvar t3 $.E1
  50. update #this 5 $t3
  51. endif
  52. ;------------------------------------
  53. xtextin 50 170 170 20 "Track 5" t4 ""80
  54. gadid 6
  55. xcheckbox 230 170 20 20 "" tv4 1 0 off
  56. if $tv4 = 0
  57. setvar t4 ""
  58. update #this 6 $t4
  59. endif
  60. if $tv4 = 1
  61. setvar t4 $.E1
  62. update #this 6 $t4
  63. endif
  64. ;------------------------------------
  65. xtextin 50 195 170 20 "Track 6" t5 ""80
  66. gadid 7
  67. xcheckbox 230 195 20 20 "" tv5 1 0 off
  68. if $tv5 = 0
  69. setvar t5 ""
  70. update #this 7 $t5
  71. endif
  72. if $tv5 = 1
  73. setvar t5 $.E1
  74. update #this 7 $t5
  75. endif
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.  
  84.  
  85. xtextin 100 20 170 20 "VideoCD .bin"  $vcd1 "" 80
  86. gadid 1
  87. xtextin 100 50 170 20 "VideoCD .cue"  $vcd2 "" 80
  88. gadid 2
  89. xBUTTON 275 20 15 19 "<"
  90. ReqFile -1 -1 300 -40 "VideoCD-Image" LOAD BB ""
  91. delvar scl5
  92. delvar vcd1
  93. delvar vcd2
  94. delvar .Verzeichnis
  95. searchvar BB : ci first
  96. setvar pos $$SEARCH.POS
  97. setvar len $$SEARCH.LENGTH
  98. cutvar BB cut char $pos Root
  99. cutvar BB cut char $((0 - ($len - $pos )) + 1) .Verzeichnis
  100. setvar scl5 /
  101. appvar scl5 $Root
  102. appvar scl5 /
  103. appvar scl5 $.Verzeichnis
  104. appvar scl5 .
  105. appvar vcd2 $scl5
  106. appvar vcd2 cue
  107. appvar vcd1 $scl5
  108. appvar vcd1 bin
  109. Update #this 1 $vcd1
  110. update #this 2 $vcd2
  111. ;--------------------------------------
  112. xcycler  370 20 60 20 "VideoCD Typ" vcdt
  113. cstr vcd2 vcd2
  114. cstr vcd1.1 vcd11
  115. cstr svcd svcd
  116.  
  117. xtextin 450 50 170 20 "ISO-Volumelabel" ivl "VCD" 80
  118. xtextin 450 80 170 20 "ISO-Applikations ID" ipn " VIDEOCD" 80
  119. xtextin 450 110 170 20 "ISO-Album name" ian "1" 80
  120. xtextin 450 140 170 20 "ISO- VideoCD-Number" vvn "1" 80
  121. xtextin 450 170 170 20 "ISO- Album-ID" fan "1" 80
  122. ;------------------------------------------------
  123.  
  124. ;---------------------------------------------
  125. xButton 530 210 100 20 "Abrechen"
  126. Breaktask vcdimager c
  127. xBUTTON 300 210 200 20  "Mache ein Mode 2 DAO-Image"
  128.  
  129. if $vcd1 = ""
  130. setvar a ""
  131. endif
  132. if $vcd1 != ""
  133. setvar a $vcd1
  134. endif
  135. if $vcd2 = ""
  136. setvar b ""
  137. endif
  138. if $vcd2 != ""
  139. setvar b $vcd2
  140. endif
  141.  
  142. if $vcdt = ""
  143. or $vcdt = vcd2
  144. setvar e "vcd2"
  145. endif
  146. if $vcdt = vcd11
  147. or $vcdt = svcd
  148. setvar e $vcdt
  149. endif
  150. if $ivl = ""
  151. setvar f "VCD"
  152. endif
  153. if $ivl != ""
  154. setvar f $ivl
  155. endif
  156. if $ipn = ""
  157. setvar g "VideoCD"
  158. endif
  159. if $ipn != ""
  160. setvar g $ipn
  161. endif
  162. if $ian = ""
  163. setvar h "1"
  164. endif
  165. if $ian != ""
  166. setvar h $ian
  167. endif
  168. if $vvn = ""
  169. setvar i "1"
  170. endif
  171. if $vvn != ""
  172. setvar i $vvn
  173. endif
  174. if $fan = ""
  175. setvar j "1"
  176. endif
  177. if $fan != ""
  178. setvar j $fan
  179. endif
  180. setstack 2000000
  181. run 'vcdimager $t1 $t2 $t3 $t4 $t5 -b $a -c $b --type $e -l $f --iso-application-id $g --info-album-id $h --volume-count $i --volume-number $j -v -p'
  182. setstack 4000
  183.  
  184.  
  185.  
  186.  
  187.  
  188.  
  189.  
  190.  
  191.  
  192.